home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / whouse.dir / 00120.ls < prev    next >
Encoding:
Text File  |  1995-08-01  |  453 b   |  17 lines
  1. on mouseUp
  2.   global gPicSprite, gPicStart, gPicEnd
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   set cnum to the castNum of sprite gPicSprite
  11.   if cnum = gPicEnd then
  12.     set the castNum of sprite gPicSprite to gPicStart
  13.   else
  14.     set the castNum of sprite gPicSprite to cnum + 1
  15.   end if
  16. end
  17.